000000000 GGGGGGGGGGGG IIIIIIII1 NNN NNN 
LLL 000000000 GGGGGGGGGGGG III NNN NNN 
LLL 000000000 GGGGGGGGGGGG IIIT NNN NNN 
LLL 000 000 GGG II] NNN NNN 
LLL 000 000 GGG IIl NNN NNN 
LLL 000 GGG Il NNN NNN 
LLL 000 000 GGG Ill NNNNNN NNN 
LLL 000 000 GGG II] NNN NN 
LLL 000 000 GGG Ii] NNNNNN NNN 
LLL 000 000 GGG II] NN NNN NNN 
LLL 000 000 GGG II] NNN NNN NNN 
LLL 000 000 GGG III N 
LLL 000 000 GGG 66G6G6GGGG6G II] NNN NNNNNN 
LLL 000 000 GGG 666666666 Il NNN NNNNNN 
LLL 000 000 GGG 666666666 Il NNN NNNNNN 
LLL 000 000 GGG GGG II] NNN NNN 
LLL 000 000 GGG GGG II] NNN NNN 
LLL 000 000 GGG GGG II] NNN NNN 
LLLLLLLLLLLLLLL 000000000 GGGGGGGGG IIIIIIII NNN NNN 
LLLLLLLLLLLLLLL 000000000 GGGGGGGGG IIIIIIII1 NNN NNN 
LLLLLLLLLLLLLL 000000000 GGGGGGGGG IIIT NNN NNN 
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LJOSHOUR OF DAY ; Find numeric hour of day 1 mi taehs yi Oe: :05:38 VAX/VMS Macro V04-00 Pege 1 | 
VO04- “-SEP=-1984 46:06 CLOGIN.SRCJLIBHOUR.MAR;1 (1) 


1 -TITLE LIBSHOUR_OF _DAY 3; Find numeric hour of day > 

¢ . IDENT +VOe-000" ; 
2 WITITIIITITITITITITITITILITITIIITTITTLLLILI LiL LLL TTL Tiiii iii iii iii Py 

3* ® | P 

$0 § 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * : 
09 :* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * . 
8 3 ALL RIGHTS RESERVED * | ‘ 
3 ® e 

00 10 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gh ha * : 
00 11 ;* ONLY IN ACCORDANCE WITH THE rey OF SUCH bce SE AND WITH THE * ‘ 
$38 1 3* INCLUSION OF THE ABOVE gill a, OTICE. THIS SOFTWARE OR ANY OTHER * > 
135 ;* COPIES THEREOF MAY NOT BE P ROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ; 

9000 14 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ; 
4 1? 3* TRANSFERRED. * > 
3 * ; 

$000 17 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * . 
0000 18 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * : 
444 I 3* CORPORATION. * ; 
7* fe 3 

0000 1 ;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * - 
0000 § 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ; 
0000 3* * 3 
0000 4 ;* * ; 
0000 $2 PRA RARER ARATE AAA AEA AAA A EAA A AAA AAA AAAAAR AAA KAE ATTRA 3 
0000 6 ; F 
0000 7 ; 3 
44 gi, $ FACILITY: Language-independent support Library : 
0000 0 ; “ABSTRACT: $ 
0000 3) i 3 3 
0000 § ; $ 
0000 ; io 3 
0000 4 ; 3 
0000 35 : VERSION: 1 ; 
0000 36 ; | ; 
0000 7 : HISTORY: 3 
0000 8 ; | ; 
0000 39 : AUTHOR: 3 
0000 40 ; 5 
0000 41 ; Herb Jacobs November 1981 ; 
0000 42; | ; 


L JBSHOUR_OF _DAY 


; Fin 
HISTO 


RY 


numeric hour 
; Detailed 


ot $87. case uiscory “SERSIBRE 89:98:88 


-SBTTL HISTORY 


46 ; EDIT HISTORY: 


a 


48 : 1-001 - 


AX/VMS M 
LOGIN.SR 


efi 1B 


v04-00 
HOUR .MAR; 1 


; Detailed Current Edit History 
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«-SBTTL DECLARATIONS 


INCLUDE FILES: 


! EXTERNAL SYMBOLS: 


; MACROS: 


PSECT DECLARATIONS: 


-PSECT _LIBSCODE PIC, SHR, LONG, EXE, NOWRT 


; EQUATED SYMBOLS: 


SENNA AA AAA A AAO 


WRI SO OONAUE WO OONOUE WO 
eee 


LIBSHOUR_OF _DAY ; Find numeric hour of da 
voa=000 (1BSHOUR_OF _DAY =~ : 


AX/VMS Macro V04-00 


i ot i tb 4 
“ LOGIN. SRCJLIBHOUR.MAR; 1 


See=19ke Of icesbe 


.SBTTL LIBSHOUR_OF_DAY - 


p++ 
; FUNCTIONAL DESCRIPTION: 


This routine returns the numeric hour of the day for an input time 


i 
7 
5 
0 13 value. If the input value is ommited, the current hour of the da 
8 ¢ 3 st this time is returned. Midnite is considered 0, highest hour 1. 
0 4; 
33 5 ; CALLING SEQUENCE: 
009 ; : ret = LIBSHOUR_OF_DAY ( time_64_bit_Q, output_hour_L) 
0000 9 ; INPUT PARAMETERS: 
0000 90 ; 
4 4 3 time_64_bit_Q - Address of a quadword representing time or 0 
0000 38 ; IMPLICIT INPUTS: 
0000 94 ; 
448 + 3 If time_64_bit_Q is 0, then the current system time is used. 
0000 97 ; OUTPUT PARAMETERS: 
0000 98 ; 
4 100 ; output_hour_L = Address of a longword to recieve the hour 
0000 101 ; IMPLICIT OUTPUTS: 
0000 19 3 
0000 103; NONE 
0000 104 ; 
0000 105 ; COMPLETION CODES: 
0000 106; 
B68 107 ; SS$_NORMAL - success 
000 108 ; 
8508 109 ; SIDE EFFECTS: 
000 110; 
0000 111; NONE 
0000 M6 $ 
444! 113 ;-- 
0 114 entry - 
0000 B88 115 Lib$Shour_of_day,*M<> 
50 00000000'8F D0 00 116 movl #Llib$_invarg,r0 ; assume error 
6C 92 91 000 11 cmpb #2, (ap) 3; are there at least 2 arguments 
6 1A 48 118 bgtru 100% ; branch if not 
51 04 AC 00 9 119 mov l 4(ap),ri 3 get address of quadword time 
OF 12 3 120 bneq 20$ ; branch if specified 
51 —E 7E 14 121 movaq -(sp),ri 3 area to recieve time in, ri addr of area 
7". % ¢ $gettim_s (r1$ 3 get current time 
21 50 4 9 1 bc r0,100$ : branch if error 
50 61 7D 124 208:  movq  (r{),r0 i get the time 
51 50 50 23C€34600 8F 78 6 125 ediv #60*10*1000*1000;r0,r0,r1 ; get the time in minutes : 
1 4 QO02F 1 § clrl ri : time in minutes from 1858 is only 32 bits 
nn: +.B C B 0031 1 ediv #60,r0,r0,r1 3 time in hours into r0 
1 bf $ 1 3 clrl ri § ogetn only 32 bits 
51 50 50 18 1 ediv #24,°0,r0,r1 ; rQO number of days, rl hour of day 
08 + |) an 3D =: 130 mov | r -88(ap) ; store the hour number 
°o 8 6 41 131 mov l “ioe 3; set success 
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nd numeric hour of day 


3 Fi 
LIBSHOUR_OF DAY - 


> 
4 
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ret 
end 


100$: 


Nn 


row 
vw 


"8 


LIBSHOUR_OF _DAY 
Symbol table 


LIBSHOUR_OF DAY 00000000 RG a 
LIBS_INVARG” = teeeenee =X 
SYSSCETTIN eetereree GX 1 


temo m ener ens sores} 
' ; Psect synopsis H 


PSECT name Allocation PSECT No. Attributes 
- ABS .- 
_LIBSCODE 00000045 ( 69.) 01 ¢ 1.) PIC USR CON REL LCL SHR- EXE 


$m ean e ma mrenraavee maemo ome + 


: Performance indicators H 


Phase Page faults CPU Time 


Initialization 29 00:00:00.05 00:00:00.77 
pounene processing 107 00:00:00.42 Bp 300: Bs 86 

113 00:00:00.36 00:00:02.86 
a table sort 0 00:00:00.00 00:00:00.00 
Pass 2 40 00:00:00.20 00:00:01.71 
Symbol table output 1 00:00:00.01 00:00:00.01 
Psect synopsis output 2 00:00:00.01 00:00:00.01 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 294 00:00:01.05 00:00:08.22 


The working set Limit was 1050 pages. 

1797 bytes (4 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space aljocased to hold 3 non-local and 2 Local symbols. 
134 source Lines were read in Pass 1, eee = object records in Pass 2. 

2 pages of virtual memory were used to define 2 macros. 


werweweeoeeeeeeooeoocecoeon} 


Macro library name 


-$355$0UA28: ress sr oein. MLB; 1 0 
“$255$DUA28:(CSYS.OBJJLIB.MLB; 1 0 
“$255$DUA28: eye. IBISTARLET. MLB;2 § 
TOTALS ‘all Libraries) 


12 GETS were required to define 2 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:LIBHOUR/OBJ=0BJ$:LIBHOUR MSRC$:LIBHOUR/UPDATE=(ENH$:LIBHOUR) +EXECML$/LIB+LIB$:LOGIN/LIB 


a oe at 84:03:38 ae Ae Macro V04-00 
SEP=1984 01:46:06 (CLOGIN.SRCJLIBHOUR.MAR; 1 


00000000 < 8} 00 ( Q.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 


RD NOWRT NOVEC LONG 


22 


a 
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